home *** CD-ROM | disk | FTP | other *** search
/ funcom 2000 Presskit / 000721_1312 (fun.com).iso / funcom.dir / 00029_Script_29 < prev    next >
Text File  |  2000-07-20  |  645b  |  29 lines
  1.  
  2.  
  3. -- Display Translated Color behavior
  4.  
  5. -----------------------------------------------------------
  6. -- Displays a the color value for the ball sprite.
  7. --
  8. -- You attach this behavior to a text sprite.
  9. --
  10. -- David Benman 11/97
  11. -----------------------------------------------------------
  12.  
  13. on beginSprite me
  14.   displayColor me
  15. end 
  16.  
  17. on sliderMove me
  18.   displayColor me
  19. end
  20.  
  21. on displayColor me
  22.   set currentSprite to the spriteNum of me
  23.   set currentMember to the member of sprite currentSprite
  24.   set ballSprite to currentSprite - 1
  25.   set the text of member currentMember to string(the foreColor of sprite ballSprite)
  26. end
  27.  
  28.  
  29.